home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / dmrdsp.tst < prev    next >
Text File  |  1999-09-16  |  492b  |  21 lines
  1. z=poly(0,'z')
  2. n=1+z;d=n*n;n1=[n d];d1=[d d*d];n1=[n1 n1];d1=[d1 d1];
  3. n2=[n n*n;n*n n**4];d2=[n*n n**4;n n*n];den=d2(1,:);num=n2(2,:);
  4. p=poly(rand(5,1),'z');q=poly(rand(6,1),'z');
  5. p1=[p,0.1+2.35*z-5.05*z**3];q1=[q,2.56+0.03*z-10.01*z*z+z**5];
  6. d3=[1+z**10 z**15];
  7. tlist('r',d,n)
  8. tlist('r',n,d)
  9. tlist('r',d2,n2)
  10. tlist('r',n2,d2)
  11. tlist('r',den,num)
  12. tlist('r',num,den)
  13. tlist('r',p1,q1)
  14. tlist('r',q1,p1)
  15. tlist('r',p,q)
  16. tlist('r',q,p)
  17. tlist('r',p,z)
  18. tlist('r',z,p)
  19. tlist('r',d1,n1)
  20. tlist('r',n1,d1)
  21.